home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / borland / jnfb88.zip / PALPRO.ZIP / HYPO.SC < prev    next >
Text File  |  1987-10-07  |  225b  |  12 lines

  1. PROC Hypotenuse(x,y)
  2.         w=x*x
  3.         z=y*y
  4.         RETURN (SQRT(w+z))
  5. ENDPROC 
  6.  
  7. x = 4 
  8. y = 5 
  9. ? "If a right triangle has sides ",x," and ",y,"," 
  10. ? "then its hypotenuse is ",Hypotenuse(x,y),"." 
  11. SLEEP 4000 
  12.